home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / vbasic / health.exe / MDIFORM1.FRM < prev    next >
Text File  |  1993-07-22  |  19KB  |  631 lines
  1. VERSION 2.00
  2. Begin Form mdiform1 
  3.    BackColor       =   &H00FF0000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "MULTIPLE    DOCUMENT    FORM"
  6.    ClientHeight    =   6630
  7.    ClientLeft      =   195
  8.    ClientTop       =   1800
  9.    ClientWidth     =   9525
  10.    ControlBox      =   0   'False
  11.    FontBold        =   -1  'True
  12.    FontItalic      =   0   'False
  13.    FontName        =   "MS Serif"
  14.    FontSize        =   8.25
  15.    FontStrikethru  =   0   'False
  16.    FontUnderline   =   0   'False
  17.    Height          =   7320
  18.    Left            =   135
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   6630
  24.    ScaleWidth      =   9525
  25.    Tag             =   "clinical"
  26.    Top             =   1170
  27.    Width           =   9645
  28.    Begin MDIChild MDIChild1 
  29.       BackColor       =   &H00C0C0C0&
  30.       Caption         =   "CLINICAL   DATA"
  31.       Height          =   5730
  32.       Icon            =   MDIFORM1.FRX:0000
  33.       Index           =   3
  34.       Left            =   -720
  35.       Top             =   960
  36.       Width           =   9585
  37.       Begin ListBox List3 
  38.          BackColor       =   &H00FF0000&
  39.          FontBold        =   -1  'True
  40.          FontItalic      =   0   'False
  41.          FontName        =   "Arial"
  42.          FontSize        =   12
  43.          FontStrikethru  =   0   'False
  44.          FontUnderline   =   0   'False
  45.          ForeColor       =   &H00FFFFFF&
  46.          Height          =   4020
  47.          Index           =   0
  48.          Left            =   0
  49.          TabIndex        =   4
  50.          Top             =   1320
  51.          Width           =   4815
  52.       End
  53.       Begin ListBox List3 
  54.          BackColor       =   &H00FF0000&
  55.          FontBold        =   -1  'True
  56.          FontItalic      =   0   'False
  57.          FontName        =   "Arial"
  58.          FontSize        =   12
  59.          FontStrikethru  =   0   'False
  60.          FontUnderline   =   0   'False
  61.          ForeColor       =   &H00FFFFFF&
  62.          Height          =   4020
  63.          Index           =   1
  64.          Left            =   4800
  65.          TabIndex        =   5
  66.          Top             =   1320
  67.          Width           =   4695
  68.       End
  69.       Begin VHedit HEdit1 
  70.          FontBold        =   0   'False
  71.          FontItalic      =   0   'False
  72.          FontName        =   "Arial"
  73.          FontSize        =   24
  74.          FontStrikethru  =   0   'False
  75.          FontUnderline   =   0   'False
  76.          Height          =   555
  77.          Index           =   3
  78.          InflateBottom   =   270
  79.          InflateLeft     =   270
  80.          InflateRight    =   270
  81.          InflateTop      =   270
  82.          Left            =   8640
  83.          TabIndex        =   12
  84.          Top             =   960
  85.          Version         =   268435458
  86.          Visible         =   0   'False
  87.          Width           =   495
  88.       End
  89.       Begin AniPushButton AniButton3 
  90.          BackColor       =   &H00C0C0C0&
  91.          Cycle           =   2  '2-state 1/2 & 1/2
  92.          Height          =   480
  93.          Index           =   2
  94.          Left            =   8880
  95.          PictDrawMode    =   1  'Autosize control
  96.          Picture         =   MDIFORM1.FRX:0302
  97.          TabIndex        =   11
  98.          Top             =   360
  99.          Width           =   480
  100.       End
  101.       Begin VBedit BEdit1 
  102.          CellHeight      =   500
  103.          CellWidth       =   500
  104.          CombBaseLine    =   500
  105.          CombEndHeight   =   360
  106.          CombEndMarker   =   0   'False
  107.          CombHeight      =   270
  108.          FontBold        =   0   'False
  109.          FontItalic      =   0   'False
  110.          FontName        =   "Arial"
  111.          FontSize        =   24
  112.          FontStrikethru  =   0   'False
  113.          FontUnderline   =   0   'False
  114.          Height          =   855
  115.          Index           =   3
  116.          InflateBottom   =   180
  117.          InflateLeft     =   180
  118.          InflateRight    =   180
  119.          InflateTop      =   240
  120.          Left            =   840
  121.          TabIndex        =   7
  122.          Top             =   240
  123.          Version         =   268435458
  124.          Width           =   7695
  125.       End
  126.    End
  127.    Begin MDIChild MDIChild1 
  128.       BackColor       =   &H00C0C0C0&
  129.       Caption         =   "RESPIRATION / CIRCULATION  PATTERN"
  130.       Height          =   5370
  131.       Icon            =   MDIFORM1.FRX:08E4
  132.       Index           =   2
  133.       Left            =   -1080
  134.       Top             =   240
  135.       Width           =   9615
  136.       Begin ListBox List2 
  137.          BackColor       =   &H00FF0000&
  138.          FontBold        =   -1  'True
  139.          FontItalic      =   0   'False
  140.          FontName        =   "Arial"
  141.          FontSize        =   12
  142.          FontStrikethru  =   0   'False
  143.          FontUnderline   =   0   'False
  144.          ForeColor       =   &H00FFFFFF&
  145.          Height          =   3450
  146.          Index           =   0
  147.          Left            =   0
  148.          TabIndex        =   2
  149.          Top             =   1200
  150.          Width           =   4695
  151.       End
  152.       Begin ListBox List2 
  153.          BackColor       =   &H00FF0000&
  154.          FontBold        =   -1  'True
  155.          FontItalic      =   0   'False
  156.          FontName        =   "Arial"
  157.          FontSize        =   12
  158.          FontStrikethru  =   0   'False
  159.          FontUnderline   =   0   'False
  160.          ForeColor       =   &H00FFFFFF&
  161.          Height          =   3450
  162.          Index           =   1
  163.          Left            =   4680
  164.          TabIndex        =   3
  165.          Top             =   1200
  166.          Width           =   4815
  167.       End
  168.       Begin VHedit HEdit1 
  169.          FontBold        =   0   'False
  170.          FontItalic      =   0   'False
  171.          FontName        =   "Arial"
  172.          FontSize        =   24
  173.          FontStrikethru  =   0   'False
  174.          FontUnderline   =   0   'False
  175.          Height          =   540
  176.          Index           =   2
  177.          InflateBottom   =   270
  178.          InflateLeft     =   270
  179.          InflateRight    =   270
  180.          InflateTop      =   270
  181.          Left            =   8880
  182.          TabIndex        =   14
  183.          Top             =   960
  184.          Version         =   268435458
  185.          Visible         =   0   'False
  186.          Width           =   495
  187.       End
  188.       Begin AniPushButton AniButton3 
  189.          BackColor       =   &H00C0C0C0&
  190.          Cycle           =   2  '2-state 1/2 & 1/2
  191.          Height          =   480
  192.          Index           =   1
  193.          Left            =   8880
  194.          PictDrawMode    =   1  'Autosize control
  195.          Picture         =   MDIFORM1.FRX:0BE6
  196.          TabIndex        =   10
  197.          Top             =   360
  198.          Width           =   480
  199.       End
  200.       Begin VBedit BEdit1 
  201.          CellHeight      =   500
  202.          CellWidth       =   500
  203.          CombBaseLine    =   500
  204.          CombEndHeight   =   360
  205.          CombEndMarker   =   0   'False
  206.          CombHeight      =   270
  207.          FontBold        =   0   'False
  208.          FontItalic      =   0   'False
  209.          FontName        =   "Arial"
  210.          FontSize        =   24
  211.          FontStrikethru  =   0   'False
  212.          FontUnderline   =   0   'False
  213.          Height          =   855
  214.          Index           =   2
  215.          InflateBottom   =   180
  216.          InflateLeft     =   180
  217.          InflateRight    =   180
  218.          InflateTop      =   240
  219.          Left            =   1080
  220.          TabIndex        =   8
  221.          Top             =   120
  222.          Version         =   268435458
  223.          Width           =   7695
  224.       End
  225.    End
  226.    Begin MDIChild MDIChild1 
  227.       BackColor       =   &H00C0C0C0&
  228.       Caption         =   "COGNITIVE / PERCEPTUAL  PATTERN"
  229.       Height          =   5850
  230.       Icon            =   MDIFORM1.FRX:11C8
  231.       Index           =   1
  232.       Left            =   -1320
  233.       Top             =   0
  234.       Width           =   9585
  235.       Begin ListBox List1 
  236.          BackColor       =   &H00FF0000&
  237.          FontBold        =   -1  'True
  238.          FontItalic      =   0   'False
  239.          FontName        =   "Arial"
  240.          FontSize        =   12
  241.          FontStrikethru  =   0   'False
  242.          FontUnderline   =   0   'False
  243.          ForeColor       =   &H00FFFFFF&
  244.          Height          =   3735
  245.          Index           =   0
  246.          Left            =   0
  247.          TabIndex        =   0
  248.          Top             =   1320
  249.          Width           =   4695
  250.       End
  251.       Begin ListBox List1 
  252.          BackColor       =   &H00FF0000&
  253.          FontBold        =   -1  'True
  254.          FontItalic      =   0   'False
  255.          FontName        =   "Arial"
  256.          FontSize        =   12
  257.          FontStrikethru  =   0   'False
  258.          FontUnderline   =   0   'False
  259.          ForeColor       =   &H00FFFFFF&
  260.          Height          =   3735
  261.          Index           =   1
  262.          Left            =   4680
  263.          TabIndex        =   1
  264.          Top             =   1320
  265.          Width           =   4815
  266.       End
  267.       Begin VHedit HEdit1 
  268.          FontBold        =   0   'False
  269.          FontItalic      =   0   'False
  270.          FontName        =   "Arial"
  271.          FontSize        =   24
  272.          FontStrikethru  =   0   'False
  273.          FontUnderline   =   0   'False
  274.          Height          =   540
  275.          Index           =   1
  276.          InflateBottom   =   270
  277.          InflateLeft     =   270
  278.          InflateRight    =   270
  279.          InflateTop      =   270
  280.          Left            =   8760
  281.          TabIndex        =   13
  282.          Top             =   960
  283.          Version         =   268435458
  284.          Visible         =   0   'False
  285.          Width           =   495
  286.       End
  287.       Begin AniPushButton AniButton3 
  288.          BackColor       =   &H00C0C0C0&
  289.          Cycle           =   2  '2-state 1/2 & 1/2
  290.          Height          =   480
  291.          Index           =   0
  292.          Left            =   8880
  293.          PictDrawMode    =   1  'Autosize control
  294.          Picture         =   MDIFORM1.FRX:14CA
  295.          TabIndex        =   9
  296.          Top             =   360
  297.          Width           =   480
  298.       End
  299.       Begin VBedit BEdit1 
  300.          CellHeight      =   500
  301.          CellWidth       =   500
  302.          CombBaseLine    =   500
  303.          CombEndHeight   =   360
  304.          CombEndMarker   =   0   'False
  305.          CombHeight      =   270
  306.          FontBold        =   0   'False
  307.          FontItalic      =   0   'False
  308.          FontName        =   "Arial"
  309.          FontSize        =   24
  310.          FontStrikethru  =   0   'False
  311.          FontUnderline   =   0   'False
  312.          Height          =   855
  313.          Index           =   1
  314.          InflateBottom   =   180
  315.          InflateLeft     =   180
  316.          InflateRight    =   180
  317.          InflateTop      =   240
  318.          Left            =   960
  319.          TabIndex        =   6
  320.          Top             =   240
  321.          Version         =   268435458
  322.          Width           =   7695
  323.       End
  324.    End
  325.    Begin Menu e1 
  326.    End
  327.    Begin Menu D4 
  328.    End
  329.    Begin Menu D5 
  330.    End
  331.    Begin Menu D6 
  332.    End
  333.    Begin Menu BACK 
  334.       Caption         =   "BACK"
  335.    End
  336.    Begin Menu D7 
  337.    End
  338.    Begin Menu E4 
  339.    End
  340.    Begin Menu E6 
  341.    End
  342.    Begin Menu D8 
  343.    End
  344.    Begin Menu D9 
  345.    End
  346.    Begin Menu DUM1 
  347.    End
  348.    Begin Menu DISPOSEROUTE 
  349.       Caption         =   "EXIT"
  350.    End
  351.    Begin Menu e2 
  352.       Enabled         =   0   'False
  353.    End
  354.    Begin Menu DUM2 
  355.    End
  356.    Begin Menu ARRANGE 
  357.       Caption         =   "ARRANGE"
  358.    End
  359.    Begin Menu e3 
  360.    End
  361.    Begin Menu D13 
  362.    End
  363.    Begin Menu D14 
  364.    End
  365.    Begin Menu D15 
  366.    End
  367.    Begin Menu DUM3 
  368.    End
  369.    Begin Menu FORWARD 
  370.       Caption         =   "NEXT"
  371.    End
  372. End
  373. Dim appendflag1, appendflag2, appendflag3 As Integer
  374.  
  375. Sub AniButton3_Click (index As Integer)
  376.  
  377. Select Case anibutton3(0).value
  378.     Case 2
  379.         editswap bedit1(1), hedit1(1), 1
  380.         hedit1(1).visible = -1
  381.         bedit1(1).visible = 0
  382.          appendflag1 = -1
  383.  
  384.     Case 1
  385.         editswap bedit1(1), hedit1(1), 2
  386.         hedit1(1).visible = 0
  387.         bedit1(1).visible = -1
  388.          
  389.          appendflag1 = 0
  390. End Select
  391. Select Case anibutton3(1).value
  392.     Case 2
  393.         editswap bedit1(2), hedit1(2), 1
  394.         hedit1(2).visible = -1
  395.         bedit1(2).visible = 0
  396.          
  397.          appendflag2 = -1
  398.  
  399.     Case 1
  400.         editswap bedit1(2), hedit1(2), 2
  401.         hedit1(2).visible = 0
  402.         bedit1(2).visible = -1
  403.          
  404.          appendflag2 = 0
  405. End Select
  406.  
  407. Select Case anibutton3(2).value
  408.     Case 2
  409.             editswap bedit1(3), hedit1(3), 1
  410.             hedit1(3).visible = -1
  411.             bedit1(3).visible = 0
  412.          
  413.          appendflag3 = -1
  414.  
  415.     Case 1
  416.             editswap bedit1(3), hedit1(3), 2
  417.             hedit1(3).visible = 0
  418.             bedit1(3).visible = -1
  419.          
  420.          appendflag3 = 0
  421. End Select
  422.  
  423.  
  424. End Sub
  425.  
  426. Sub ARRANGE_Click ()
  427. mdichild1(1).ARRANGE = 1
  428. End Sub
  429.  
  430. Sub BACK_Click ()
  431. If smartform(6) Then
  432.         assess3.Show
  433.         mdiform1.Hide
  434.  
  435. Else
  436. formcheck "Multiple Document"
  437. End If
  438.  
  439. End Sub
  440.  
  441. Sub DISPOSEROUTE_Click ()
  442. If smartform(6) Then
  443.  
  444. menumode mdiform1
  445. Else
  446. formcheck "Multiple Document"
  447. End If
  448.  
  449. End Sub
  450.  
  451. Sub Form_Load ()
  452. mdiform1.Move 0, 0, screen.width, screen.height
  453. LIST3(0).AddItem "AGE"
  454. LIST3(0).AddItem "HEIGHT"
  455. LIST3(0).AddItem "WEIGHT"
  456. LIST3(0).AddItem "TEMP"
  457. LIST3(0).AddItem "PULSE"
  458. LIST3(0).AddItem "RESPIRATIONS"
  459. LIST3(0).AddItem "BLOOD PRESSURE"
  460. LIST3(0).AddItem "GENERAL HEALTH:"
  461. LIST3(0).AddItem "USE OF TOBACCO"
  462. LIST3(0).AddItem "USE OF ALCOHOL"
  463. LIST3(0).AddItem "USE OF OTHER DRUGS"
  464. LIST3(0).AddItem "ORAL MUCOSA:"
  465. LIST3(0).AddItem "HEALTHY"
  466. LIST3(0).AddItem "MOIST"
  467. LIST3(0).AddItem "SKIN:"
  468. LIST3(0).AddItem "LESIONS"
  469. LIST3(0).AddItem "NOURISHMENT:"
  470. LIST3(0).AddItem "WELL-NOURISHED"
  471. LIST3(0).AddItem "OBESE"
  472. LIST3(0).AddItem "EMACIATED"
  473. LIST3(0).AddItem "SKIN:"
  474. LIST3(0).AddItem "SKIN NORMAL"
  475. LIST3(0).AddItem "HEALING PROBLEMS"
  476. LIST3(0).AddItem "CHANGES IN PIGMENTATION"
  477. LIST3(0).AddItem "TEETH:"
  478. LIST3(0).AddItem "NO PROBLEM CONDITION"
  479. LIST3(0).AddItem "DENTURES"
  480. LIST3(0).AddItem "CARIES"
  481. LIST3(0).AddItem "BROKEN TEETH"
  482. LIST3(0).AddItem "MISSING TEETH"
  483. '**********************************************
  484. LIST2(0).AddItem "BREATH SOUNDS"
  485. LIST2(0).AddItem "LIP COLOR"
  486. LIST2(0).AddItem "USE OF ACCESSORY MUSCLES"
  487. LIST2(0).AddItem "COUGH:"
  488. LIST2(0).AddItem "NON-PRODUCTIVE"
  489. LIST2(0).AddItem "PRODUCTIVE SPUTUM COLOR"
  490. LIST2(0).AddItem "APICAL RATE"
  491. LIST2(0).AddItem "RHYTHM:"
  492. LIST2(0).AddItem "REGULAR"
  493. LIST2(0).AddItem "IRREGULAR"
  494. LIST2(0).AddItem "ABNORMAL HEART SOUNDS NOTED"
  495. LIST2(0).AddItem "NECK VEIN DISTENSION AT 45 DEGREES:"
  496. LIST2(0).AddItem "PRESENT"
  497. LIST2(0).AddItem "ABSENT"
  498. LIST2(0).AddItem "EDEMA       LOCATION"
  499. LIST2(0).AddItem "RIGHT DORSALIS PEDAL PULSE:"
  500. LIST2(0).AddItem "STRONG"
  501. LIST2(0).AddItem "WEAK"
  502. LIST2(0).AddItem "ABSENT"
  503. LIST2(0).AddItem "LEFT DORSAL PEDAL PULSE"
  504. LIST2(0).AddItem "STRONG"
  505. LIST2(0).AddItem "WEAK"
  506. LIST2(0).AddItem "ABSENT"
  507. LIST2(0).AddItem "CALF TENDERNESS"
  508. LIST2(0).AddItem "NO"
  509. LIST2(0).AddItem "YES"
  510. LIST2(0).AddItem "EXTREMITIES   COLOR"
  511. LIST2(0).AddItem "              TEMP"
  512. LIST2(0).AddItem "BREAST SOUNDS"
  513. '**********************************************************
  514. LIST1(0).AddItem "HEARING"
  515. LIST1(0).AddItem "NORMAL LEFT"
  516. LIST1(0).AddItem "NORMAL RIGHT"
  517. LIST1(0).AddItem "IMPAIRED LEFT"
  518. LIST1(0).AddItem "IMPAIRED RIGHT"
  519. LIST1(0).AddItem "USES AID"
  520. LIST1(0).AddItem "VISION"
  521. LIST1(0).AddItem "NORMAL"
  522. LIST1(0).AddItem "IMPAIRED"
  523. LIST1(0).AddItem "GLASSES"
  524. LIST1(0).AddItem "PROSTHESES"
  525. LIST1(0).AddItem "FARSIGHTED"
  526. LIST1(0).AddItem "NEARSIGHTED"
  527. LIST1(0).AddItem "OTHER PROBLEMS"
  528. LIST1(0).AddItem "COMMUNICATION:"
  529. LIST1(0).AddItem "LANGUAGE SPOKEN:"
  530. LIST1(0).AddItem "UNDERSTANDS ENGLISH:"
  531. LIST1(0).AddItem "YES"
  532. LIST1(0).AddItem "NO"
  533. LIST1(0).AddItem "ABLE TO:"
  534. LIST1(0).AddItem "READ"
  535. LIST1(0).AddItem "WRITE"
  536. LIST1(0).AddItem "LIP READ"
  537. LIST1(0).AddItem "COGNITION:"
  538. LIST1(0).AddItem "NO PROBLEMS"
  539. LIST1(0).AddItem "RECENT MEMORY CHANGE"
  540. LIST1(0).AddItem "DIFFICULTY LEARNING"
  541. LIST1(0).AddItem "DISCOMFORT / PAIN"
  542. LIST1(0).AddItem "NO"
  543. LIST1(0).AddItem "YES  "
  544. LIST1(0).AddItem " DESCRIBE (LOCATION-INTENSITY-DURATION)  "
  545. LIST1(0).AddItem "EDUCATION - NEEDS REASON FOR ADMISSION"
  546. '***************************************************************
  547. LIST1(0).AddItem "HEARING"
  548. LIST1(0).AddItem "HEARING"
  549. LIST1(0).AddItem "HEARING"
  550.  
  551. mdichild1(3).Move 0, 0
  552. mdichild1(2).Move 0, 360
  553. mdichild1(1).Move 0, 720
  554. mdichild1(3).active = -1
  555. mdichild1(2).active = -1
  556. mdichild1(1).active = -1
  557. hedit1(1).Move bedit1(1).left, bedit1(1).top, bedit1(1).width, bedit1(1).height
  558. hedit1(2).Move bedit1(2).left, bedit1(2).top, bedit1(2).width, bedit1(2).height
  559. hedit1(3).Move bedit1(3).left, bedit1(3).top, bedit1(3).width, bedit1(3).height
  560.  
  561. End Sub
  562.  
  563. Sub FORWARD_Click ()
  564. If smartform(6) Then
  565.  
  566. summary.Show
  567. mdiform1.Hide
  568. Else
  569. formcheck "Multiple Document"
  570. End If
  571.  
  572. End Sub
  573.  
  574. Sub List1_Click (index As Integer)
  575. If appendflag1 Then
  576.         Select Case index
  577.         Case 0
  578.         LIST1(1).AddItem LIST1(0).list(LIST1(0).listindex) + "  " + bedit1(1).text
  579.         Case 1
  580.         LIST1(1).RemoveItem LIST1(1).listindex
  581.         End Select
  582. Else
  583.  
  584.         Select Case index
  585.         Case 0
  586.         LIST1(1).AddItem LIST1(0).list(LIST1(0).listindex)
  587.         Case 1
  588.         LIST1(1).RemoveItem LIST1(1).listindex
  589.         End Select
  590. End If
  591.     End Sub
  592.  
  593. Sub List2_Click (index As Integer)
  594. If appendflag2 Then
  595.             Select Case index
  596.             Case 0
  597.             LIST2(1).AddItem LIST2(0).list(LIST2(0).listindex) + "  " + bedit1(2).text
  598.             Case 1
  599.             LIST2(1).RemoveItem LIST2(1).listindex
  600.  
  601.             End Select
  602. Else
  603.             Select Case index
  604.             Case 0
  605.             LIST2(1).AddItem LIST2(0).list(LIST2(0).listindex)
  606.             Case 1
  607.             LIST2(1).RemoveItem LIST2(1).listindex
  608.             End Select
  609. End If
  610. End Sub
  611.  
  612. Sub List3_Click (index As Integer)
  613. If appendflag3 Then
  614.         Select Case index
  615.         Case 0
  616.         LIST3(1).AddItem LIST3(0).list(LIST3(0).listindex) + "  " + bedit1(3).text
  617.         Case 1
  618.         LIST3(1).RemoveItem LIST3(1).listindex
  619.  
  620.         End Select
  621. Else
  622.         Select Case index
  623.         Case 0
  624.         LIST3(1).AddItem LIST3(0).list(LIST3(0).listindex)
  625.         Case 1
  626.         LIST3(1).RemoveItem LIST3(1).listindex
  627.         End Select
  628. End If
  629. End Sub
  630.  
  631.